﻿Imports System.Data
Imports VSModel
Imports AutoDevModel
Imports Cls_Common
Imports SecurityService
Partial Class Control_TiepNhanMCC_XuLy
    Inherits System.Web.UI.UserControl
    Private Shared ReadOnly log As log4net.ILog = log4net.LogManager.GetLogger(System.Reflection.MethodBase.GetCurrentMethod().DeclaringType)
#Region "Event for control "
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not IsPostBack Then
            Dim script As ScriptManager = ScriptManager.GetCurrent(Me.Page)
            If Not script Is Nothing AndAlso script.IsInAsyncPostBack Then
                ScriptManager.RegisterStartupScript(Me.Page, Me.Page.GetType, "duyjs", "ajaxJquery()", True)
            Else
                Me.Page.ClientScript.RegisterStartupScript(Me.Page.GetType(), "duyjs", String.Concat("Sys.Application.add_load(function(){", "ajaxJquery()", "});"), True)
            End If
            If Session("UserId") Is Nothing Then
                Response.Redirect("~/Login.aspx")
            End If
            hidCurHuyenId.Value = Session("HuyenId")
            hidID.Value = Request("Id")
            Load2Grid()
            LoadModeFrom()
            LoadMotCua()

        End If
    End Sub
    Protected Sub Load2Grid()
        Using _data As New VSEntities
            'Tỉnh
            Dim TinhDiaDiemKD = (From q In _data.Provinces Where q.ParentId = 0 Order By q.Title Select q.Id, q.Code, q.Title).ToList
            With ddlTinhDiaDiemKD
                .DataSource = TinhDiaDiemKD
                .DataValueField = "Id"
                .DataTextField = "Title"
                .DataBind()
                .Items.Insert(0, New ListItem("--- Chọn ---", "0"))
            End With
            'huyen ho khau
            '171 tinh an giang
            Dim huyenDiaDiemKD = (From q In _data.Provinces Where q.ParentId = 171 Order By q.Title Select q.Id, q.Code, q.Title).ToList
            With ddlHuyenDiaDiemKD
                .DataSource = huyenDiaDiemKD
                .DataValueField = "Id"
                .DataTextField = "Title"
                .DataBind()
                .Items.Insert(0, New ListItem("--- Chọn ---", "0"))
            End With
            'xa thi tran hien tai
            Dim xaDiaDiemKD = (From q In _data.Provinces Where q.ParentId = hidCurHuyenId.Value Order By q.Title Select q.Id, q.Code, q.Title).ToList
            With ddlXaThiTranDiaDiemKD
                .DataSource = xaDiaDiemKD
                .DataValueField = "Id"
                .DataTextField = "Title"
                .DataBind()
                .Items.Insert(0, New ListItem("--- Chọn ---", "0"))
            End With

            'tinh ho khau
            Dim TinhHoKhau = (From q In _data.Provinces Where q.ParentId = 0 Order By q.Title Select q.Id, q.Code, q.Title).ToList
            With ddlTinhHoKhau
                .DataSource = TinhHoKhau
                .DataValueField = "Id"
                .DataTextField = "Title"
                .DataBind()
                .Items.Insert(0, New ListItem("--- Chọn ---", "0"))
            End With
            'huyen ho khau
            '171 tinh an giang
            Dim huyenHoKhau = (From q In _data.Provinces Where q.ParentId = 171 Order By q.Title Select q.Id, q.Code, q.Title).ToList
            With ddlHuyenHoKhau
                .DataSource = huyenHoKhau
                .DataValueField = "Id"
                .DataTextField = "Title"
                .DataBind()
                .Items.Insert(0, New ListItem("--- Chọn ---", "0"))
            End With
            'xa thi tran hien tai
            Dim xaHoKhau = (From q In _data.Provinces Where q.ParentId = hidCurHuyenId.Value Order By q.Title Select q.Id, q.Code, q.Title).ToList
            With ddlXaThiTranHoKhau
                .DataSource = xaHoKhau
                .DataValueField = "Id"
                .DataTextField = "Title"
                .DataBind()
                .Items.Insert(0, New ListItem("--- Chọn ---", "0"))
            End With

            'tinh hien tai
            Dim TinhHienTai = (From q In _data.Provinces Where q.ParentId = 0 Order By q.Title Select q.Id, q.Code, q.Title).ToList
            With ddlTinhHienTai
                .DataSource = TinhHienTai
                .DataValueField = "Id"
                .DataTextField = "Title"
                .DataBind()
                .Items.Insert(0, New ListItem("--- Chọn ---", "0"))
            End With
            'huyen ho khau
            '171 tinh an giang
            Dim huyenHienTai = (From q In _data.Provinces Where q.ParentId = 171 Order By q.Title Select q.Id, q.Code, q.Title).ToList
            With ddlHuyenHienTai
                .DataSource = huyenHienTai
                .DataValueField = "Id"
                .DataTextField = "Title"
                .DataBind()
                .Items.Insert(0, New ListItem("--- Chọn ---", "0"))
            End With
            'xa thi tran hien tai
            Dim xaHienTai = (From q In _data.Provinces Where q.ParentId = hidCurHuyenId.Value Order By q.Title Select q.Id, q.Code, q.Title).ToList
            With ddlXaThiTranHienTai
                .DataSource = xaHienTai
                .DataValueField = "Id"
                .DataTextField = "Title"
                .DataBind()
                .Items.Insert(0, New ListItem("--- Chọn ---", "0"))
            End With

            'NGanh nghe
            Dim linhvuc = (From q In _data.BusinessFields Order By q.Name Select New With {.Id = q.Id, .Name = q.Name}).ToList
            With ddlBusinessField
                .DataSource = linhvuc
                .DataValueField = "Id"
                .DataTextField = "Name"
                .DataBind()
                .Items.Insert(0, New ListItem("--- Chọn ---", "0"))
            End With

            'dan toc
            Dim dantoc = (From q In _data.Citizens Order By q.Name Select New With {.Id = q.Name, .Name = q.Name}).ToList
            With ddlCitizen
                .DataSource = dantoc
                .DataValueField = "Id"
                .DataTextField = "Name"
                .DataBind()
                .Items.Insert(0, New ListItem("--- Chọn ---", "0"))
            End With

            'quoc gia
            Dim Country = (From q In _data.Countries Order By q.Name Select New With {.Id = q.Name, .Name = q.Name}).ToList
            With ddlCountry
                .DataSource = Country
                .DataValueField = "Id"
                .DataTextField = "Name"
                .DataBind()
                .Items.Insert(0, New ListItem("--- Chọn ---", "0"))
            End With

            'dong vi cap giay chung nhan CMND
            Dim DeptCertified = (From q In _data.DeptIdentifies Order By q.Name Select New With {.Id = q.Name, .Name = q.Name}).ToList
            With ddlDeptCertified
                .DataSource = DeptCertified
                .DataValueField = "Id"
                .DataTextField = "Name"
                .DataBind()
                .Items.Insert(0, New ListItem("--- Chọn ---", "0"))
            End With

            'dong vi cap giay chung nhan khac
            Dim d = (From q In _data.DeptIdentifies Order By q.Name Select New With {.Id = q.Id, .Name = q.Name}).ToList
            With ddlOthersPaper_NoiCap
                .DataSource = d
                .DataValueField = "Id"
                .DataTextField = "Name"
                .DataBind()
                .Items.Insert(0, New ListItem("--- Chọn ---", "0"))
            End With
            'giấy tờ khác
            Dim CertifiedPaperDict = (From q In _data.CertifiedPaperDicts Order By q.Name Select New With {.Id = q.Id, .Name = q.Name}).ToList
            With ddlOthersPaper
                .DataSource = CertifiedPaperDict
                .DataValueField = "Id"
                .DataTextField = "Name"
                .DataBind()
                .Items.Insert(0, New ListItem("--- Chọn ---", "0"))
            End With
            'thanh phan ho so
            Dim lstThanhPhanHoSo = (From q In _data.ThanhPhanHoSoes Order By q.IsDefault Descending, q.TenHoSo Select q).ToList
            Dim strKey_Name() As String = {"Id", "MaHoSo", "IsDefault"}
            With grdShow
                .DataKeyNames = strKey_Name
                .DataSource = lstThanhPhanHoSo
                .DataBind()
            End With
        End Using
    End Sub
    Protected Sub LoadModeFrom()
        Using data As New VSEntities
            txtBizName.Text = "HỘ KINH DOANH "
            'load dân tộc
            ddlCitizen.SelectedValue = "Kinh"
            'load quốc tịch
            ddlCountry.SelectedValue = "Việt Nam"
            'load nơi cấp CMND
            ddlDeptCertified.SelectedValue = "Công an tỉnh An Giang"

            Dim p = (From q In data.Provinces Where q.Id = hidCurHuyenId.Value Select q).FirstOrDefault
            'load tỉnh
            ddlTinhHoKhau.SelectedValue = p.ParentId 'tỉnh của user hiện tại
            hidHuyenHoKhau.Text = p.ParentId 'tỉnh của user hiện tại
            'load huyen ho khau
            ddlHuyenHoKhau.SelectedValue = hidCurHuyenId.Value 'huyên hiên tại User quản lý
            hidHuyenHoKhau.Text = hidCurHuyenId.Value
            'load tinh hien tai
            ddlTinhHienTai.SelectedValue = p.ParentId 'tỉnh của user hiện tại
            hidHuyenHienTai.Text = p.ParentId 'tỉnh của user hiện tại
            'load huyen hien tai
            ddlHuyenHienTai.SelectedValue = hidCurHuyenId.Value 'huyen hien tai user quan ly
            hidHuyenHienTai.Text = hidCurHuyenId.Value
            'load tinh dia diem kinh doanh
            ddlTinhDiaDiemKD.SelectedValue = p.ParentId 'tỉnh của user hiện tại
            hidHuyenDiaDiemKD.Text = p.ParentId 'tỉnh của user hiện tại
            'load huyen dia diem kinh doanh
            ddlHuyenDiaDiemKD.SelectedValue = hidCurHuyenId.Value 'huyen hien tai user quan ly
            hidHuyenDiaDiemKD.Text = hidCurHuyenId.Value

            txtVonTaiSan.Text = 0 'Von tai san
        End Using

    End Sub
    Protected Sub btnSave_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSave.Click
        Using data As New VSEntities
            Dim checkCode = (From q In data.CertifiedHouseholds Where q.Biz_VietName = txtBizName.Text.Trim() And q.ProvinceId = hidCurHuyenId.Value Select q).FirstOrDefault
            Dim checkCMND = (From t In data.CertifiedHouseholds Where t.Ow_CardID = txtOwCardId.Text.Trim() And t.ProvinceId = hidCurHuyenId.Value Select t).FirstOrDefault
            Dim lst = (From k In data.CertifiedChamDuts Join h In data.CertifiedHouseholds On k.CertifiedCode Equals h.CertifiedCode Where h.Ow_CardID = txtOwCardId.Text.Trim()).ToList
            If Not checkCMND Is Nothing Then
                If lst.Count = 0 Then
                    Excute_Javascript("Alertbox('Số CMND đã tồn tại trong hệ thống.')", Me.Page, True)
                    Exit Sub
                End If
            End If
            If Not checkCode Is Nothing Then
                Excute_Javascript("Alertbox('Tên hộ kinh doanh đã tồn tại trong hệ thống.')", Me.Page, True)
                Exit Sub
            End If

            Dim p As New VSModel.CertifiedHousehold
            Try
                p.MaBienNhan = lblBienNhan.Text
                'Thông tin chung
                p.CertifiedStatus = "M" 'cấp mới
                p.CertifiedUp_Time = 0 'cap moi
                p.CertifiedUp_Date = Now 'ngay nhap ho so
                'thong tin ca nhan
                p.Ow_Name = txtOwRepresentative.Text 'Họ tên
                p.Ow_Sex = rdlSex.SelectedValue 'giới tính
                p.Ow_BirthDate = txtOwDateOfBirth.Text 'ngày tháng năm sinh
                p.Ow_National_ID = ddlCitizen.Text 'dân tộc
                p.Ow_Nationality_ID = ddlCountry.Text 'Quốc tịch


                p.Ow_CardID = txtOwCardId.Text 'Số CMND
                p.Ow_CardDate = StringToDate(txtOwCardDate.Text) 'Ngày cấp
                p.Ow_Provider_ID = ddlDeptCertified.Text 'Nơi cấp

                'giay to khac
                p.Ow_Doc_ID = ddlOthersPaper.SelectedValue 'Giấy tờ khác
                p.Ow_DocCode = txtOtherPaperCode.Text 'Mã số
                p.Ow_DocDate = StringToDate(txtOthersPaperDateIssue.Text.Trim()) 'Ngày cấp

                p.Ow_DocOffiCertifiedID = ddlOthersPaper_NoiCap.SelectedValue 'Nơi cấp

                'Thông tin hộ kinh doanh: 
                p.Biz_VietName = txtBizName.Text.Trim() 'Tên hộ kinh doanh
                p.Ow_Tel = txtOw_Tel.Text.Trim() 'điện thoai
                p.Ow_Fax = txtOw_Fax.Text.Trim() 'fax
                p.Ow_Email = txtOw_Email.Text.Trim() 'Email
                p.Ow_WebSite = txtOw_WebSite.Text.Trim() 'Website

                p.Biz_Tel = txtOw_Tel.Text.Trim() 'điện thoai
                p.Biz_Fax = txtOw_Fax.Text.Trim() 'fax
                p.Biz_Email = txtOw_Email.Text.Trim() 'Email
                p.Biz_Website = txtOw_WebSite.Text.Trim() 'Website


                'nganh nghe kinh doanh và linh vưc
                ' p.NganhNgheKinhDoanh = ddlNganhNgheKinhDoanh.SelectedValue 'ngành nghề kinh doanh
                p.LinhVucKinhDoanh = ddlBusinessField.Text 'Lĩnh vực kinh doanh

                'khoi tao tranh error luc xuat giay CN
                p.VonTienMat = txtVonTienMat.Text.Trim
                p.VonTaiSan = txtVonTaiSan.Text.Trim
                p.Biz_InvestCapital = txtBiz_InvestCapital.Text.Trim().Replace(".", "") 'vốn kinh doanh
                p.Biz_WordsMoney = txtMoney_string.Text.Trim() 'Tiền viết bằng chữ




                p.Created = StringToDate(txtNgayNhanHoSo.Text) 'ngay nhan ho so
                p.NgayTraHoSo = StringToDate(txtNgayTraHoSo.Text)

                p.Creator = Session("UserName")
                p.StatusId = TinhTrangHoSo.Daduyet 'tiep den se gui cho thue
                p.NguonTao = NguonTao.MotCua

                p.ProvinceId = hidCurHuyenId.Value ' Huyên đang ký kinh doanh


                data.CertifiedHouseholds.AddObject(p)


                data.SaveChanges()

                Dim strGCN As String = ""
                If Not p.CertifiedCode Is Nothing Then
                    strGCN = p.CertifiedCode
                End If

                p.ParentId = p.CertifiedID ' ho so dang ky lan parentId = CerId
                data.SaveChanges()

                'Địa chỉ phường xa huyên
                Dim tht As New VSModel.CertifiedHouseholdAddress
                'thường trú
                tht.CertifiedID = p.CertifiedID
                tht.TypeId = LoaiDiaChi.ThuongTru
                tht.Adress = txtDiaChiHoKhau.Text.Trim()
                tht.TinhId = ddlTinhHoKhau.SelectedValue
                'khi set = javascript se ko lay dc  phai set vao hidden field
                tht.HuyenId = hidHuyenHoKhau.Text
                tht.XaThiTranId = hidXaThiTranHoKhau.Text
                data.CertifiedHouseholdAddresses.AddObject(tht)
                data.SaveChanges()
                'luu thuong tru vao CertifiedHousehold
                'lay tien cac truong theo value
                'xa
                Dim jx = (From q In data.Provinces Where q.Id = hidXaThiTranHoKhau.Text Select q.Title).FirstOrDefault
                'huyen
                Dim jh = (From q In data.Provinces Where q.Id = hidHuyenHoKhau.Text Select q.Title).FirstOrDefault
                'tinh
                Dim jt = (From q In data.Provinces Where q.Id = ddlTinhHoKhau.SelectedValue Select q.Title).FirstOrDefault
                p.Ow_Resident = txtDiaChiHoKhau.Text.Trim() & ", " & jx & ", " & jh & ", " & jt
                data.SaveChanges()
                'tam trú
                Dim tt As New VSModel.CertifiedHouseholdAddress
                tt.CertifiedID = p.CertifiedID
                tt.TypeId = LoaiDiaChi.TamTru
                tt.Adress = txtDiaChiHienTai.Text.Trim()
                tt.TinhId = ddlTinhHienTai.SelectedValue
                'khi set = javascript se ko lay dc  phai set vao hidden field
                tt.HuyenId = hidHuyenHienTai.Text
                tt.XaThiTranId = hidXaThiTranHienTai.Text
                data.CertifiedHouseholdAddresses.AddObject(tt)
                data.SaveChanges()
                'luu tam tru vao certifiedhousehold
                'lay tien cac truong theo value
                'xa
                Dim jxt = (From q In data.Provinces Where q.Id = hidXaThiTranHienTai.Text Select q.Title).FirstOrDefault
                'huyen
                Dim jht = (From q In data.Provinces Where q.Id = hidHuyenHienTai.Text Select q.Title).FirstOrDefault
                'tinh
                Dim jtt = (From q In data.Provinces Where q.Id = ddlTinhHienTai.SelectedValue Select q.Title).FirstOrDefault
                p.Ow_Present = txtDiaChiHienTai.Text.Trim() & ", " & jxt & ", " & jht & ", " & jtt
                'địa điểm kinh doanh
                Dim kd As New VSModel.CertifiedHouseholdAddress
                kd.CertifiedID = p.CertifiedID
                kd.TypeId = LoaiDiaChi.DiaDiemKinhDoanh
                kd.Adress = txtBiz_HeadOffice.Text.Trim()
                kd.TinhId = ddlTinhDiaDiemKD.SelectedValue
                'khi set = javascript se ko lay dc  phai set vao hidden field
                kd.HuyenId = hidHuyenDiaDiemKD.Text
                kd.XaThiTranId = hidXaThiTranDiaDiemKD.Text
                data.CertifiedHouseholdAddresses.AddObject(kd)
                data.SaveChanges()
                'luu dia diem kinh doanh vao certifiedhousehold
                'lay tien cac truong theo value
                'xa
                Dim jxd = (From q In data.Provinces Where q.Id = hidXaThiTranDiaDiemKD.Text Select q.Title).FirstOrDefault
                'huyen
                Dim jhd = (From q In data.Provinces Where q.Id = hidHuyenDiaDiemKD.Text Select q.Title).FirstOrDefault
                'tinh
                Dim jtd = (From q In data.Provinces Where q.Id = ddlTinhDiaDiemKD.SelectedValue Select q.Title).FirstOrDefault
                p.XaPhuongId = hidXaThiTranDiaDiemKD.Text ' luu XaPhuongId de report

                p.Biz_HeadOffice = txtBiz_HeadOffice.Text.Trim() & ", " & jxd & ", " & jhd & ", " & jtd
                'start ngành nghề

                'lưu thông tin cho CertifiedHouseholdNganhNghe
                Try
                    Dim index As Integer = 0
                    Dim GrossAmount As Integer = 0
                    For i As Integer = 0 To hidRowIndex.Value - 1
                        Dim strMaterialCode As String = ""
                        Dim strMaterialDescription As String = ""
                        Dim strUnit As String = ""
                        Dim intAmount As Integer = 0

                        Dim txtMaterialCode As String = "txtChoice" + i.ToString
                        If Request.Form(txtMaterialCode) <> Nothing AndAlso Request.Form(txtMaterialCode).ToString.Trim() <> "" Then
                            strMaterialCode = Request.Form(txtMaterialCode)
                        End If

                        Dim txtMaterialDescription As String = "txtDescription" + i.ToString
                        If Request.Form(txtMaterialDescription) <> Nothing AndAlso Request.Form(txtMaterialDescription).ToString.Trim() <> "" Then
                            strMaterialDescription = Request.Form(txtMaterialDescription)
                        End If

                        If (strMaterialCode.Trim <> "") Then
                            Dim _NganhNgheId As Integer = (From q In data.DanhMucNganhNghes Where q.Code = strMaterialCode Select q.Id).FirstOrDefault

                            Dim NganhNgheList As New CertifiedHouseholdNganhNghe
                            NganhNgheList.CertifiedID = p.CertifiedID
                            NganhNgheList.DanhMucNganhNgheID = _NganhNgheId
                            NganhNgheList.Description = strMaterialDescription

                            data.CertifiedHouseholdNganhNghes.AddObject(NganhNgheList)

                            data.SaveChanges()
                            index = index + 1

                            'End If
                        End If

                        ' luu thong tin vao nganh nghe kinh doanh de hien thi
                        Dim strNganhNghe As String = ""
                        Dim _nn = (From q In data.CertifiedHouseholdNganhNghes Where q.CertifiedID = p.CertifiedID Select q).ToList
                        For Each a In _nn
                            Dim nganhnghe = (From k In data.DanhMucNganhNghes Where k.Id = a.DanhMucNganhNgheID Select k).FirstOrDefault
                            If Not a.Description Is Nothing AndAlso a.Description <> "" Then
                                strNganhNghe = strNganhNghe & a.Description & " (" & nganhnghe.Code & ")" & ", "
                            Else
                                strNganhNghe = strNganhNghe & nganhnghe.Name & " (" & nganhnghe.Code & ")" & ", "
                            End If
                        Next
                        p.NganhNgheKinhDoanh = strNganhNghe
                        data.SaveChanges()
                    Next
                Catch ex As Exception
                    log4net.Config.XmlConfigurator.Configure()
                    log.Error("Error error " & AddTabSpace(1) & Session("Username") & AddTabSpace(1) & "IP:" & GetIPAddress(), ex)
                    Excute_Javascript("Alertbox('Cập nhật ngành nghề thất bại.');", Me.Page, True)
                    Exit Sub
                End Try

                'end ngành nghề

                'start danh sách góp vốn

                'lưu thông tin cho CertifiedHouseholdMember
                Try
                    Dim index As Integer = 0
                    For i As Integer = 0 To hidRowIndex1.Value - 1
                        Dim strTenTV As String = ""
                        Dim strNoiDKHK As String = ""
                        Dim strVonGop As String = ""
                        Dim strTyLeVonGop As String = ""
                        Dim strCMND As String = ""
                        Dim strDescription As String = ""

                        Dim txtTenTV As String = "txtTenTV__" + i.ToString
                        If Request.Form(txtTenTV) <> Nothing AndAlso Request.Form(txtTenTV).ToString.Trim() <> "" Then
                            strTenTV = Request.Form(txtTenTV)
                        End If

                        Dim txtNoiDKHK As String = "txtNoiDKHK__" + i.ToString
                        If Request.Form(txtNoiDKHK) <> Nothing AndAlso Request.Form(txtNoiDKHK).ToString.Trim() <> "" Then
                            strNoiDKHK = Request.Form(txtNoiDKHK)
                        End If
                        Dim txtVonGop As String = "txtVonGop__" + i.ToString
                        If Request.Form(txtTenTV) <> Nothing AndAlso Request.Form(txtVonGop).ToString.Trim() <> "" Then
                            strVonGop = Request.Form(txtVonGop)
                        End If

                        Dim txtTyLeVonGop As String = "txtTyLeVonGop__" + i.ToString
                        If Request.Form(txtTyLeVonGop) <> Nothing AndAlso Request.Form(txtTyLeVonGop).ToString.Trim() <> "" Then
                            strTyLeVonGop = Request.Form(txtTyLeVonGop)
                        End If
                        Dim txtCMND As String = "txtCMND__" + i.ToString
                        If Request.Form(txtCMND) <> Nothing AndAlso Request.Form(txtCMND).ToString.Trim() <> "" Then
                            strCMND = Request.Form(txtCMND)
                        End If

                        Dim txtDescription As String = "txtDescription__" + i.ToString
                        If Request.Form(txtDescription) <> Nothing AndAlso Request.Form(txtDescription).ToString.Trim() <> "" Then
                            strDescription = Request.Form(txtDescription)
                        End If

                        If (strTenTV.Trim <> "") Then

                            Dim member As New CertifiedHouseholdMember
                            member.CertifiedID = p.CertifiedID
                            member.MemberName = strTenTV
                            member.MemberAddress = strNoiDKHK
                            member.MemberValues = strVonGop
                            member.MemberRate = strTyLeVonGop
                            member.MemberCard = strCMND
                            member.MemberDes = strDescription
                            member.MemberOrder = member.Id
                            data.CertifiedHouseholdMembers.AddObject(member)

                            data.SaveChanges()
                            index = index + 1

                            'End If
                        End If
                    Next
                Catch ex As Exception
                    Excute_Javascript("Alertbox('Cập nhật danh sách góp vốn thất bại.');", Me.Page, True)
                    Exit Sub
                End Try
                'end danh sách góp vốn

                'start thành phần hồ sơ
                Dim intId As Integer = 0
                For Each item As GridViewRow In grdShow.Rows
                    Dim chkItem As New CheckBox
                    chkItem = CType(item.FindControl("chkItem"), CheckBox)
                    If chkItem.Checked Then
                        'lay id cua thanh phan ho so
                        intId = grdShow.DataKeys(item.RowIndex)("Id").ToString
                        Dim ThanhPhanHoSo As New CertifiedHouseholdThanhPhanHoSo
                        ThanhPhanHoSo.CertifiedID = p.CertifiedID
                        ThanhPhanHoSo.ThanhPhanHoSoId = intId
                        data.CertifiedHouseholdThanhPhanHoSoes.AddObject(ThanhPhanHoSo)
                        data.SaveChanges()
                    End If
                Next

                'correct lai Province + HuyenId
                Dim _UserId As Integer = Session("UserId")
                Dim _CertifiedId As Integer = p.CertifiedID
                data.uspCertifiedHouseHouseUpdate(_UserId, _CertifiedId)
                'update lai bang HoSo auto

                Dim _curHoSoId As Integer = Request("Id")
                'Using _au As New AutoDevEntities
                '    Dim _p = (From q In _au.HoSoes Where q.Id = _curHoSoId Select q).FirstOrDefault
                '    If Not _p Is Nothing Then
                '        _p.StatusId = 2
                '        _au.SaveChanges()
                '    End If
                'End Using

                Dim strLog As String = "Giay CN:" & strGCN & ", tên hộ: " & p.Biz_VietName & ", nguoi dai dien: " & p.Ow_Name & ", CMND: " & p.Ow_CardID _
                                    & ", địa chỉ kinh doanh: " & p.Biz_HeadOffice & " huyen: " & p.ProvinceId.ToString & "userid: " & _UserId.ToString
                Insert_App_Log("Tạo  Certified:" & strLog & "", Function_Name.CertifiedHousehold, Audit_Type.Create, Request.ServerVariables("REMOTE_ADDR"), Session("UserName"))


                Excute_Javascript("Alertbox('Xử lý dữ liệu thành công.');window.location ='../../Page/QuanLyHoSo/Detail.aspx?Certifiedid=" & p.CertifiedID & "';", Me.Page, True)

            Catch ex As Exception
                log4net.Config.XmlConfigurator.Configure()
                log.Error("Error error " & AddTabSpace(1) & Session("Username") & AddTabSpace(1) & "IP:" & GetIPAddress(), ex)
                Excute_Javascript("Alertbox('Cập nhật thất bại.');window.location ='../../Page/TiepNhan/List.aspx';", Me.Page, True)
            End Try



        End Using
    End Sub

    Protected Sub btnHuy_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnHuy.Click
        Response.Redirect("List.aspx")
    End Sub

    Protected Sub LoadMotCua()
        ' hien thi thong tin ra day.
        Using _mc As New AutoDevEntities
            Dim _motcua = (From q In _mc.HoSoes Where q.Id = hidID.Value Select q).FirstOrDefault

            If Not _motcua Is Nothing Then
                'thong tin ca nhan
                lblBienNhan.Text = _motcua.SoBienNhan
                txtBizName.Text = "HỘ KINH DOANH " & _motcua.TenHoKinhDoanh.ToUpper
                If Not _motcua.NguoiDaiDien Is Nothing And _motcua.NguoiDaiDien <> "" Then
                    txtOwRepresentative.Text = _motcua.NguoiDaiDien 'Họ tên
                Else
                    txtOwRepresentative.Text = _motcua.TenHoKinhDoanh.ToUpper 'Họ tên
                End If

                txtOwCardId.Text = _motcua.CMND
                txtOw_Tel.Text = IIf(_motcua.DienThoaiBan <> "", _motcua.DienThoaiBan, _motcua.DienThoaiDD)

                If _motcua.NguoiDaiDien.ToUpper.Contains("THỊ") Then
                    rdlSex.SelectedValue = 0
                End If

                txtNganhNgheMotCua.Text = _motcua.NganhNghe

                txtNgayNhanHoSo.Text = _motcua.NgayTiepNhan
                txtNgayTraHoSo.Text = _motcua.NgayHenTra

                'Dia diem kinh doanh
                Dim _thuongtru As String() = _motcua.DiaChiNguoiDaiDien.Split(",")
                Dim _tamtru As String() = _motcua.DiaChiKinhDoanh.Split(",")
                Dim _DDKD As String() = _motcua.DiaChiKinhDoanh.Split(",")

                Dim _tinh As String
                Dim _Huyen As String
                Dim _Xa As String
                Dim _DiaChi As String
                Using _data As New VSEntities
                    'dia chi kinh doanh
                    If _DDKD.Length >= 4 Then
                        Try
                            _tinh = _DDKD(_DDKD.Length - 1).Trim()
                            _Huyen = _DDKD(_DDKD.Length - 2).Trim()
                            _Xa = _DDKD(_DDKD.Length - 3).Trim()
                            _DiaChi = _motcua.DiaChiKinhDoanh.Replace(_tinh, "").Replace(_Huyen, "").Replace(_Xa, "").Trim.TrimEnd(",").Trim.TrimEnd(",").Trim.TrimEnd(",").Trim.TrimEnd(",")

                            Dim _TinhId As Integer = (From h In _data.Provinces Where h.Title.ToUpper = _tinh.ToUpper Select h.Id).FirstOrDefault
                            ddlTinhHoKhau.SelectedValue = _TinhId
                            If _Huyen = "TP Long Xuyên" Then
                                _Huyen = "thành phố Long Xuyên"
                            End If
                            Dim _Huyenid As Integer = (From h In _data.Provinces Where h.Title.ToUpper = _Huyen.ToUpper Select h.Id).FirstOrDefault

                            Dim _XaThiTranId As Integer

                            _XaThiTranId = (From h In _data.Provinces Where h.Title.ToUpper = _Xa.ToUpper Select h.Id).FirstOrDefault
                            If _XaThiTranId = 0 Then
                                Dim _xaphuong = "phường " & _Xa.ToUpper
                                _XaThiTranId = (From x In _data.Provinces Where x.ParentId = _Huyenid And x.Title.ToUpper = _xaphuong.ToUpper Select x.Id).FirstOrDefault
                            End If
                            If _XaThiTranId = 0 Then
                                Dim _xaxa = "xã " & _Xa.ToUpper
                                _XaThiTranId = (From x In _data.Provinces Where x.ParentId = _Huyenid And x.Title.ToUpper = _xaxa.ToUpper Select x.Id).FirstOrDefault
                            End If
                            If _XaThiTranId = 0 Then
                                Dim _xathitran = "thị trấn " & _Xa.ToUpper
                                _XaThiTranId = (From x In _data.Provinces Where x.ParentId = _Huyenid And x.Title.ToUpper = _xathitran.ToUpper Select x.Id).FirstOrDefault
                            End If
                            'Tỉnh
                            Dim TinhDiaDiemKD = (From q In _data.Provinces Where q.ParentId = 0 Order By q.Title Select q.Id, q.Code, q.Title).ToList
                            With ddlTinhDiaDiemKD
                                .DataSource = TinhDiaDiemKD
                                .DataValueField = "Id"
                                .DataTextField = "Title"
                                .DataBind()
                                .Items.Insert(0, New ListItem("--- Chọn ---", "0"))
                            End With
                            ddlTinhDiaDiemKD.SelectedValue = _TinhId
                            'huyen ho khau

                            Dim huyenDiaDiemKD = (From q In _data.Provinces Where q.ParentId = _TinhId Order By q.Title Select q.Id, q.Code, q.Title).ToList
                            With ddlHuyenDiaDiemKD
                                .DataSource = huyenDiaDiemKD
                                .DataValueField = "Id"
                                .DataTextField = "Title"
                                .DataBind()
                                .Items.Insert(0, New ListItem("--- Chọn ---", "0"))
                            End With
                            ddlHuyenDiaDiemKD.SelectedValue = _Huyenid
                            hidHuyenDiaDiemKD.Text = _Huyenid
                            'xa thi tran hien tai
                            Dim xaDiaDiemKD = (From q In _data.Provinces Where q.ParentId = hidCurHuyenId.Value Order By q.Title Select q.Id, q.Code, q.Title).ToList
                            With ddlXaThiTranDiaDiemKD
                                .DataSource = xaDiaDiemKD
                                .DataValueField = "Id"
                                .DataTextField = "Title"
                                .DataBind()
                                .Items.Insert(0, New ListItem("--- Chọn ---", "0"))
                            End With
                            ddlXaThiTranDiaDiemKD.SelectedValue = _XaThiTranId
                            hidXaThiTranDiaDiemKD.Text = _XaThiTranId
                            txtBiz_HeadOffice.Text = _DiaChi
                        Catch ex As Exception

                        End Try
                    Else
                        txtBiz_HeadOffice.Text = _motcua.DiaChiKinhDoanh
                    End If

                    'dia chi thuong tru
                    If _thuongtru.Length >= 4 Then
                        Try
                            _tinh = _thuongtru(_thuongtru.Length - 1).Trim()
                            _Huyen = _thuongtru(_thuongtru.Length - 2).Trim()
                            _Xa = _thuongtru(_thuongtru.Length - 3).Trim()
                            _DiaChi = _motcua.DiaChiNguoiDaiDien.Replace(_tinh, "").Replace(_Huyen, "").Replace(_Xa, "").Trim.TrimEnd(",").Trim.TrimEnd(",").Trim.TrimEnd(",").Trim.TrimEnd(",")

                            Dim _TinhId As Integer = (From h In _data.Provinces Where h.Title.ToUpper = _tinh.ToUpper Select h.Id).FirstOrDefault
                            ddlTinhHoKhau.SelectedValue = _TinhId
                            If _Huyen = "TP Long Xuyên" Then
                                _Huyen = "thành phố Long Xuyên"
                            End If
                            Dim _Huyenid As Integer = (From h In _data.Provinces Where h.Title.ToUpper = _Huyen.ToUpper Select h.Id).FirstOrDefault

                            Dim _XaThiTranId As Integer

                            _XaThiTranId = (From h In _data.Provinces Where h.Title.ToUpper = _Xa.ToUpper Select h.Id).FirstOrDefault
                            If _XaThiTranId = 0 Then
                                Dim _xaphuong = "phường " & _Xa.ToUpper
                                _XaThiTranId = (From x In _data.Provinces Where x.ParentId = _Huyenid And x.Title.ToUpper = _xaphuong.ToUpper Select x.Id).FirstOrDefault
                            End If
                            If _XaThiTranId = 0 Then
                                Dim _xaxa = "xã " & _Xa.ToUpper
                                _XaThiTranId = (From x In _data.Provinces Where x.ParentId = _Huyenid And x.Title.ToUpper = _xaxa.ToUpper Select x.Id).FirstOrDefault
                            End If
                            If _XaThiTranId = 0 Then
                                Dim _xathitran = "thị trấn " & _Xa.ToUpper
                                _XaThiTranId = (From x In _data.Provinces Where x.ParentId = _Huyenid And x.Title.ToUpper = _xathitran.ToUpper Select x.Id).FirstOrDefault
                            End If
                            'huyen ho khau
                            Dim TinhHoKhau = (From q In _data.Provinces Where q.ParentId = 0 Order By q.Title Select q.Id, q.Code, q.Title).ToList
                            With ddlTinhHoKhau
                                .DataSource = TinhHoKhau
                                .DataValueField = "Id"
                                .DataTextField = "Title"
                                .DataBind()
                                .Items.Insert(0, New ListItem("--- Chọn ---", "0"))
                            End With
                            'huyen ho khau
                            ddlTinhHoKhau.SelectedValue = _TinhId


                            Dim huyenHoKhau = (From q In _data.Provinces Where q.ParentId = _TinhId Order By q.Title Select q.Id, q.Code, q.Title).ToList
                            With ddlHuyenHoKhau
                                .DataSource = huyenHoKhau
                                .DataValueField = "Id"
                                .DataTextField = "Title"
                                .DataBind()
                                .Items.Insert(0, New ListItem("--- Chọn ---", "0"))
                            End With

                            ddlHuyenHoKhau.SelectedValue = _Huyenid
                            hidHuyenHoKhau.Text = _Huyenid

                            'xa thi tran hien tai
                            Dim xaHoKhau = (From q In _data.Provinces Where q.ParentId = _Huyenid Order By q.Title Select q.Id, q.Code, q.Title).ToList
                            With ddlXaThiTranHoKhau
                                .DataSource = xaHoKhau
                                .DataValueField = "Id"
                                .DataTextField = "Title"
                                .DataBind()
                                .Items.Insert(0, New ListItem("--- Chọn ---", "0"))
                            End With

                            ddlXaThiTranHoKhau.SelectedValue = _XaThiTranId
                            hidXaThiTranHoKhau.Text = _XaThiTranId
                            txtDiaChiHoKhau.Text = _DiaChi
                            ''tinh ho khau
                        Catch ex As Exception

                        End Try

                    Else
                        txtDiaChiHoKhau.Text = _motcua.DiaChiNguoiDaiDien
                    End If


                    'cho o hien tai
                    If _tamtru.Length >= 4 Then
                        Try
                            _tinh = _tamtru(_tamtru.Length - 1).Trim()
                            _Huyen = _tamtru(_tamtru.Length - 2).Trim()
                            _Xa = _tamtru(_tamtru.Length - 3).Trim()
                            _DiaChi = _motcua.DiaChiNguoiDaiDien.Replace(_tinh, "").Replace(_Huyen, "").Replace(_Xa, "").Trim.TrimEnd(",").Trim.TrimEnd(",").Trim.TrimEnd(",").Trim.TrimEnd(",")

                            Dim _TinhId As Integer = (From h In _data.Provinces Where h.Title.ToUpper = _tinh.ToUpper Select h.Id).FirstOrDefault
                            ddlTinhHoKhau.SelectedValue = _TinhId
                            If _Huyen = "TP Long Xuyên" Then
                                _Huyen = "thành phố Long Xuyên"
                            End If
                            Dim _Huyenid As Integer = (From h In _data.Provinces Where h.Title.ToUpper = _Huyen.ToUpper Select h.Id).FirstOrDefault

                            Dim _XaThiTranId As Integer

                            _XaThiTranId = (From h In _data.Provinces Where h.Title.ToUpper = _Xa.ToUpper Select h.Id).FirstOrDefault
                            If _XaThiTranId = 0 Then
                                Dim _xaphuong = "phường " & _Xa.ToUpper
                                _XaThiTranId = (From x In _data.Provinces Where x.ParentId = _Huyenid And x.Title.ToUpper = _xaphuong.ToUpper Select x.Id).FirstOrDefault
                            End If
                            If _XaThiTranId = 0 Then
                                Dim _xaxa = "xã " & _Xa.ToUpper
                                _XaThiTranId = (From x In _data.Provinces Where x.ParentId = _Huyenid And x.Title.ToUpper = _xaxa.ToUpper Select x.Id).FirstOrDefault
                            End If
                            If _XaThiTranId = 0 Then
                                Dim _xathitran = "thị trấn " & _Xa.ToUpper
                                _XaThiTranId = (From x In _data.Provinces Where x.ParentId = _Huyenid And x.Title.ToUpper = _xathitran.ToUpper Select x.Id).FirstOrDefault
                            End If
                            'tinh hien tai
                            Dim TinhHienTai = (From q In _data.Provinces Where q.ParentId = 0 Order By q.Title Select q.Id, q.Code, q.Title).ToList
                            With ddlTinhHienTai
                                .DataSource = TinhHienTai
                                .DataValueField = "Id"
                                .DataTextField = "Title"
                                .DataBind()
                                .Items.Insert(0, New ListItem("--- Chọn ---", "0"))
                            End With

                            ddlTinhHienTai.SelectedValue = _TinhId
                            'huyen hien t ai
                            Dim huyenHienTai = (From q In _data.Provinces Where q.ParentId = _TinhId Order By q.Title Select q.Id, q.Code, q.Title).ToList
                            With ddlHuyenHienTai
                                .DataSource = huyenHienTai
                                .DataValueField = "Id"
                                .DataTextField = "Title"
                                .DataBind()
                                .Items.Insert(0, New ListItem("--- Chọn ---", "0"))
                            End With
                            ddlHuyenHienTai.SelectedValue = _Huyenid
                            hidHuyenHienTai.Text = _Huyenid
                            'xa thi tran hien tai
                            Dim xaHienTai = (From q In _data.Provinces Where q.ParentId = _Huyenid Order By q.Title Select q.Id, q.Code, q.Title).ToList
                            With ddlXaThiTranHienTai
                                .DataSource = xaHienTai
                                .DataValueField = "Id"
                                .DataTextField = "Title"
                                .DataBind()
                                .Items.Insert(0, New ListItem("--- Chọn ---", "0"))
                            End With

                            ddlXaThiTranHienTai.SelectedValue = _XaThiTranId
                            hidXaThiTranHienTai.Text = _XaThiTranId
                            txtDiaChiHienTai.Text = _DiaChi
                            ''tinh ho khau
                        Catch ex As Exception

                        End Try

                    Else
                        txtDiaChiHienTai.Text = _motcua.DiaChiNguoiDaiDien
                    End If
                End Using
            End If
        End Using
    End Sub

#End Region

    Protected Sub grdShow_RowDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles grdShow.RowDataBound
        If e.Row.RowIndex >= 0 Then
            Dim lblSTT As Label = CType(e.Row.FindControl("lblSTT"), Label)
            lblSTT.Text = e.Row.RowIndex + 1
            If Not grdShow.DataKeys(e.Row.RowIndex)("IsDefault") Is Nothing Then
                Dim chkItem As CheckBox = e.Row.FindControl("chkItem")
                chkItem.Checked = grdShow.DataKeys(e.Row.RowIndex)("IsDefault")
            End If
        End If
    End Sub


End Class